{$CLEO}
thread 'SHIPA2' 

while true
    wait 0
    0ab4: 22@ < 569 //get_handler
    IF 056D:   actor 22@ defined
    jf continue   
    Actor.StorePos(22@, 10@, 11@, 12@)
    if 0AE1: 5@ = random_actor_near_point 10@ 11@ 12@ in_radius 100.0 find_next 1 pass_deads 0 //IF and SET                                              
    jf continue                                                                                                                                                           
    IF NOT 5@ == -1                                                                                                                                               
    jf continue                                                                                                                                              
    IF 056D:   actor 5@ defined                                                                                                                               
    jf continue                                                                                                                                          
    04C4: store_coords_to 24@ 25@ 26@ from_actor 22@ with_offset 0.0 2.0 -1.5                                                                                                                                                                                                        
    wait 100                                                                                                                                                                                                                                                                        
    21@ = Object.Init(1598, 24@, 25@, 26@)                                                                                                                                                                                                                                          
    Object.ToggleInMovingList(21@) = True                                                                                                                                                                                                                                           
    08D2: object 21@ scale_model 0.1                                                                                                                                                                                                                                                
    04D9: object 21@ set_scripted_collision_check 1                                                                                                                                                                                                                                 
    Object.CollisionDetection(21@) = True                                                                                                                                                                                                                                           
    Object.Indestructibility(21@) = True                                                                                                                                                                                                                                            
    0906: set_object 21@ mass_to 10000.0 // float                                                                                         
    IF 056D:   actor 5@ defined                                                                                                                                           
    then                                                                                                                                                                                                                                   
    19@ = Actor.Angle(5@)                                                                                                                                                                                                                                                          
    0819: 20@ = actor 5@ distance_from_ground                                                                                             
    end                                                                                                                                                                                                                                     
    31@ = 100.1                                                                                                                                                                                                                                                                     
    02F6: 29@ = sine 19@ // (float)                                                                                                                                                                                                                                                 
    02F7: 30@ = cosine 19@ // (float)                                                                                                                                                                                                                                               
    006B: 29@ *= 31@ // (float)                                                                                                                                                                                                                                                     
    006B: 30@ *= 31@ // (float)                                                                                                                                                                                                                                                     
    29@ *= -1.0                                                                                                                           
    0400: store_coords_to 1@ 2@ 3@ from_object 21@ with_offset 0.0 0.0 0.0
    3@ *= 1.0                                                                
    0063: 20@ -= 3@ // (float)                                                                                                                                                                                                                                                                     
                                                                                                                                                                                                                                                                         
    Object.Throw(21@, 29@, 30@, 20@)                                                                                                                                                                                                                                                
    Camera.Shake(10)                                                                                                                                                                                                                                                               
                                                                                                                                                                                                                                                                
                                                                                                                                                                                                                                                                                    
    while true                                                                                                                            
        wait 0                                                                                                                                                                                                                                                                  
        0400: store_coords_to 1@ 2@ 3@ from_object 21@ with_offset 0.0 0.0 0.0                                                                                                                                                                                                          
        04D5: create_corona_at 1@ 2@ 3@ radius 8.5 type 1 flare 1 RGB 200 50 50                                                                                                                                                                                                         
        095C: create_smoke_at 1@ 2@ 3@ velocity 0.0 0.0 0.0 RGBA 1.0 0.0 1.0 1.0 size 1.1 last_factor 0.1                                                                                                                                                                               
        09E5: create_flash_light_at 1@ 2@ 3@ RGB_mask 200 50 50 radius 200.0                                                                                                                                                                                                            
        if 03CA:   object  21@ exists                                                                                                         
        jf @end                                                                                                                               
        IF 056D:   actor 5@ defined                                                                                                                                           
        jf @clean                                                                                                                                                                                                                                                                             
        if or                                                                                                                                                                                                                                                                           
                                                                                                                                                                                                              
           04E7:   object 21@ in_water                                                                                                                                                                                                                                                     
           04DA:   has_object 21@ collided                                                                                                                                                                                                                                                 
        then                                                                                                                                  
            0400: store_coords_to 1@ 2@ 3@ from_object 21@ with_offset 0.0 0.0 0.0                                                                                                                                                                                                          
            0948: create_explosion_at 1@ 2@ 3@ type 10 camera_shake 0.2                                                                       
            :clean                                                                                                                                                                                                                     
            Object.Destroy(21@)                                                                                                                                                                                                                                                             
            Model.Destroy(1598)                                                                                                               
            :end                                                                                                                              
            end_thread                                                                                                                        
        end                                                                                                                                                                                                                                                             
    end
end








